(define (my-equal? list1 list2)
  (cond ((or (null? list1) (null? list2)) #f)
        ((eq? (car list1) (car list2)) (my-equal? (cdr list1) (cdr list2)))
        (else #f)))
